home *** CD-ROM | disk | FTP | other *** search
/ PC Home 109 / PC Home 109.iso / data1.cab / Program_Files / quiz.dxr / 00003.ls < prev    next >
Encoding:
Text File  |  2001-03-02  |  502 b   |  20 lines
  1. on keyDown
  2.   if the key = RETURN then
  3.     set the text of field "password" to EMPTY
  4.     set the editable of member "name" to 0
  5.     set the editable of member "password" to 1
  6.     repeat with iChar = 1 to the number of chars in field "name"
  7.       if char iChar of field "name" = RETURN then
  8.         put EMPTY into char iChar of field "name"
  9.       end if
  10.     end repeat
  11.   else
  12.     pass()
  13.   end if
  14. end
  15.  
  16. on mouseDown
  17.   set the editable of member "password" to 0
  18.   set the editable of member "name" to 1
  19. end
  20.